home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_12 / hints / pcfont / TextStory
Encoding:
Text File  |  1991-09-04  |  527 b   |  23 lines
  1. REM >PCFONT
  2. REM Merge BBC FONT file into !PC ROM file
  3. REM N.B. *** COPY ORIGINAL ROM FILE BEFORE RUNNING THIS ***
  4. :
  5. DIM rom% &2000 : offset%=&166E
  6. R$=“:4.$.!PC.ROM”
  7. OSCLI(“Load ”+R$+“ ”+STR$~rom%)
  8. A%=OPENIN(R$) : r1%=EXT#A% : CLOSE#A%
  9. :
  10. F%=OPENIN(“4:.BBCFONTS.NEWFONT”) : REM file of type &FF7
  11. REPEAT
  12. A%=BGET#F%
  13. IF A%<>23 THEN PRINT “This is not a BBC font file!” : END
  14. C%=BGET%F%
  15. FOR I%=0 TO 7
  16. rom%?(offset%+((C%+128) MOD 256) *8+ I%)=BGET#F%
  17. NEXT I%
  18. UNTIL EOF#F%
  19. CLOSE#F%
  20. :
  21. OSCLI(“Save ”+R$+“ ”STR$~rom%+ “ + ”+STR$~r1%)
  22. END
  23.